home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 2274.ZIP / INSTALL.FIL < prev    next >
Text File  |  1993-05-11  |  4KB  |  223 lines
  1. BACKGROUND 63
  2. TELESCOPE OFF
  3.  
  4. WINOPEN 0 2 95
  5. "Bowen Software & The Thompson Partnership"
  6. "               Bring You      "
  7. "          PopDBF Version 4.00"
  8. "           Shareware Version"
  9. "         Installation  Program"
  10. WINUPDATE +4 +8 94
  11.  
  12. TELESCOPE ON
  13. SHADOW ON
  14. SPACE 350
  15.  
  16.  
  17. :PROMPT
  18. DRIVE C 0 11 31 15 32 14 79
  19. PATH \popdbf 0 11 31 15 32 14 79
  20.  
  21. EXIST ~1~2\*.*
  22. JUMP.NO UNPACK
  23.  
  24. EXIST ~1~2\popdbf.EXE
  25. JUMP.NO UNPACK
  26.  
  27. WINOPEN 0 11 79
  28. "The directory ~1~2 already exists and contains files!"
  29. ""
  30. "   Installing PopDBF in this directory will"
  31. ""
  32. "       in this directory prior to installing."
  33. ""
  34. "Are you SURE you want to install it here   Y or N?"
  35. WINUPDATE +45 +7 78
  36. "Y or N?"
  37. WINUPDATE +17 +4 78
  38. "DELETE ALL THE FILES"
  39. BEEP
  40. ASK +52 +7
  41. WINCLOSE
  42. JUMP.NO PROMPT
  43.  
  44. :UNPACK
  45. DELETE ~1~2\*.* 1 24 51
  46. prompt on
  47. UNPACK pop.PAK 23 10 31 32 14 79
  48. JUMP.FAIL INSTALL_FAILURE
  49.  
  50. ' ---------------------------------
  51. ' should we write batch file y / n?
  52. ' ---------------------------------
  53. WINOPEN 0 11 31
  54. "Most people prefer having a batch file created which makes"
  55. "running PopDBF easier.  If you answer YES to the"
  56. "next question, we will write the file ~1\POPDBF.BAT"
  57. "so that you can run PopDBF from the root directory"
  58. "by entering the simple command: POPDBF."
  59. ""
  60. "Do you want us to write this batch file for you   Y or N?"
  61. WINUPDATE +40 +3 27
  62. "~1\POPDBF.BAT"
  63. WINUPDATE +34 +5 27
  64. "POPDBF"
  65. WINUPDATE +52 +7 30
  66. "Y or N?"
  67. ASK +59 +7
  68. WINCLOSE
  69. JUMP.NO DONE2
  70.  
  71.  
  72. ' ----------------
  73. ' write batch file
  74. ' ----------------
  75.  
  76. EXIST ~1\POPDBF.BAT
  77. JUMP.NO DOS_PROMPT
  78. PROMPT OFF
  79. DELETE ~1\popdbf.BAT 1 24 51
  80. PROMPT ON
  81.  
  82. :DOS_PROMPT
  83. DOS 3.3
  84. JUMP.NO OLD_DOS
  85.  
  86. FILE ~1\POPDBF.BAT
  87. "@~1"
  88. "@cd ~2"
  89. "@POPDBF"
  90. "@cd \"
  91. "@echo "
  92. "@echo     Thanks for Using PopDBF"
  93. "@echo To use the program again, enter the command"
  94. "@echo                   POPDBF"
  95. "@echo          from the root directory of drive ~1."
  96. JUMP DONE
  97.  
  98. :OLD_DOS
  99. FILE ~1\POPDBF.BAT
  100. "echo off"
  101. "~1"
  102. "cd ~2"
  103. "cls"
  104. "POPDBF"
  105. "cd \"
  106. "echo "
  107. "echo         Thanks for using PopDBF"
  108. "echo To use the program again, enter the command"
  109. "echo                POPDBF"
  110. "echo     from the root directory of drive ~1."
  111.  
  112.  
  113. ' -----------------------
  114. ' successfully installed!
  115. ' -----------------------
  116.  
  117. :DONE
  118.  
  119. SHADOW ON
  120. WINOPEN 0 11 31
  121. "PopDBF HAS BEEN SUCCESSFULLY INSTALLED."
  122. "   To run it, enter the command PopDBF"
  123. "   from the root directory of drive ~1."
  124. ""
  125. ""
  126. ""
  127. ""
  128. "Press the [Enter] key to continue."
  129. WINUPDATE +34 +2 30
  130. "PopDBF"
  131. WINUPDATE +5 +5 27
  132. "THANK YOU FOR CHOOSING OUR SOFTWARE!"
  133. WAIT +36 +8
  134. WINCLOSE
  135. JUMP RUN_IT
  136.  
  137. ' -------------------------------------------------
  138. ' successfully installed (version 2, no batch file)
  139. ' -------------------------------------------------
  140.  
  141. :DONE2
  142.  
  143. SHADOW ON
  144. WINOPEN 0 11 31
  145. "PopDBF HAS BEEN SUCCESSFULLY INSTALLED."
  146. "  To run it, enter the command PopDBF"
  147. "       from the ~1~2 directory."
  148. ""
  149. ""
  150. ""
  151. ""
  152. "Press the [Enter] key to continue."
  153. WINUPDATE +33 +2 26
  154. "PopDBF"
  155. WINUPDATE +5 +5 27
  156. "THANK YOU FOR CHOOSING OUR SOFTWARE!"
  157. WAIT +36 +8
  158. WINCLOSE
  159.  
  160. :RUN_IT
  161. WINOPEN 0 11 31
  162. "Would you like to run PopDBF Right Now   Y or N?"
  163. WINUPDATE +53 +1 30
  164. "Y or N?"
  165. ASK +50 +1
  166. JUMP.NO EXIT
  167.  
  168. EXIST ~1\POPDBF.BAT
  169. JUMP.NO EXE_RUN
  170. RUN ~1\popdbf.BAT
  171. :EXE_RUN
  172. RUN ~1~2\popdbf.EXE
  173.  
  174. :EXIT
  175.  
  176. END
  177.  
  178. :INSTALL_FAILURE
  179.  
  180. WINOPEN 0 11 79
  181.  
  182. "THE INSTALLATION PROGRAM FAILED PRIOR TO COMPLETION!"
  183. ""
  184. "Possible reasons:"
  185. "   -- The floppy disk was damaged during shipping."
  186. "   -- Your disk drive is out of alignment."
  187. "   -- The floppy disk was removed prior to completion."
  188. ""
  189. "Press [Enter] to remove incomplete program files."
  190.  
  191. WAIT +50 +8
  192.  
  193. PROMPT OFF
  194. DELETE ~1~2\*.* 0 0 31
  195. RD ~1~2
  196. DELETE ~1\POPDBF.BAT 0 0 31
  197. PROMPT ON
  198.  
  199. WINCLOSE
  200. WINCLOSE
  201.  
  202. WINOPEN 0 0 31
  203.  
  204. "PARTIALLY INSTALLED FILES ARE NOW DELETED."
  205. ""
  206. "Please try to install the software again."
  207. ""
  208. "If you get this error message again, please contact us"
  209. "and we will send you a new disk."
  210. "
  211. "     The Thompson Partnership."
  212. "     Church Croft,"
  213. "     Bramshall,"
  214. "     UTTOXETER, Staffs, ST14 5DE"
  215. "     0889 564601"
  216. ""
  217. "Press [Enter] to Quit."
  218.  
  219. WAIT +14 +24
  220. END
  221.  
  222.  
  223.